100 POKE53280,0:POKE53281,0:PRINT"[147]"
130 :
140 POKE55,0:POKE56,64:CLR:A$=""
142 DV=PEEK(186):IFDV<8THENDV=8
144 DIM AN$(12,13)
145 GOSUB60000
155 DEF FND(I)=20-(LEN(AN$(X,I))/2)
160 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
170 SYS57812"PACKAGE.O",DV,0:POKE780,0:POKE781,80:POKE782,195:SYS65493
180 SYS57812"GALLERY 1.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
190 POKE251,64:POKE252,224:POKE253,204:SYS51456
195 POKE252,224:POKE253,204:SYS51459
200 IP=50000:UNPACK=51456:HGR=51459
210 PS=50006:BA=50009
220 OPEN2,DV,2,"GALLERY 1 TEXT,P,R"
222 J=1:K=0:FORI=0TO1:SYSIP,2,40:I=ST
224 IFA$="*"THENJ=J+1:K=0:GOTO228
226 K=K+1:AN$(J,K)=A$
228 NEXT:CLOSE2
230 READNP:DIM R$(11),C(11)
240 FORX=1TONP:READR$(X),C(X)
250 NEXT
260 SYSHGR
270 FORX=1TONP
280 GOSUB1810
285 FH=0:IFLEFT$(R$(X),2)="U."THENFH=1
290 SYS57812R$(X),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
310 GOSUB1910:IFA$="Q"ORA$="[209]"THENGOSUB1250
312 GOSUB2000
320 E(X)=PEEK(53281)
340 KK=0:POKE198,0
355 IFZ3=0THEN360
357 Z4=Z4+1:Z4=Z4AND15
358 POKE53281,Z4
360 KK=KK+1:GETA$:IFA$=""ANDKK<800THEN355
370 IFA$="Q"ORA$="[209]"THENGOSUB1250
380 IFA$="S"ORA$="[211]"THEN 470
390 IFA$<>CHR$(133)THEN410
400 Z1=Z1+1:Z1=Z1AND15
405 POKE53280,Z1:GOTO340
410 IFA$<>CHR$(134)THEN416
412 Z2=Z2+1:Z2=Z2AND15
415 POKE53281,Z2:GOTO340
416 IFA$<>CHR$(135)THEN420
417 Z3=1-Z3:IFZ3=0THENPOKE53281,E(X)
419 GOTO340
420 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
430 GOTO270
440 :
450 REM SAVE KOALA PIC
460 :
470 SYS HGR
480 POKE53280,0:POKE53281,0
490 PRINT"[147][154]":POKE214,11:PRINT
500 PRINT"   [211]AVE THIS UNPACKED PICTURE? (Y[154]/N[154])":POKE198,0
510 GETA$:IFA$<>"Y"ANDA$<>"N"THEN510
520 IFA$="Y"THEN560
530 GOTO1110
550 :
560 PRINT"[147][154]":POKE214,9:PRINT
570 PRINT" [201]NSERT SAVE DISK AND ENTER A FILENAME."
580 :
590 PRINT"       [206]AME : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]PIC ";
600 LN%=10:SP$="                "
610 GOSUB690:IFNM$=""THEN1110
612 PRINT"[154] SAVE DRIVE #: (8/9/0/1/2/3/4/5/6/7)
614 [161]A$:[139]A$[178]""[167]614
616 [139]A$[179]"0"[176]A$[177]"9"[167]614
618 [151]50178,[197](A$)[171]10[172]([197](A$)[179]8)
620 NM$[178][200]([199](129)[170]"PIC "[170]NM$[170]SP$,15)
650 [137]820
680 [143] --- INPUT ROUTINE ---
690 NM$[178]"":X%[178]0:C%[178][194](646)
700 [153]"PRINT#TOCMD";:[151]646,C%
710 [161]A$:[139]A$[178]""[167]710
720 A%[178][198](A$)
730 [139]A%[178]20[175]X%[167]X%[178]X%[171]1:NM$[178][200](NM$,[195](NM$)[171]1):[153]" CMDCMD";:[137]700
740 [139]A%[178]20[167]710
750 [139]A%[178]13[167][153]" ":[142]
760 [139]X%[178]LN%[167]710
770 [139]A$[179]" "[176]A$[177]"Z"[175]A$[179]"ATN"[176]A$[177]"(null)"[176]A%[178]34[167]710
780 NM$[178]NM$[170]A$:[153]""A$;:X%[178]X%[170]1:[137]700
790 :
800 [143] -- CHECK FOR 'FILE EXISTS' --
810 :
820 [159]15,DV,15,"R0:"[170]NM$[170]"="[170]NM$:[132]15,ER,ER$:[160]15
830 [139]ER[179][177]62[167][141]1160:[137]1110
840 :
850 [143] ---      SAVE PIC       ---
860 :
920 [141]2000:NM$[178]NM$[170]",P,W"
930 [158]PS,NM$:[158]HGR
950 :
960 [143] --- CHECK FOR ERRORS ---
970 :
980 [159]15,DV,15:[132]15,ER,ER$,Y$,Z$:[160]15
990 [139]ER[167][141]1160:[137]490
1000 :
1010 [143] --    EVERYTHING OK    ---
1020 :
1030 [151]53280,0:[151]53281,0
1040 [153]"LOADCONT":[151]214,7:[153]
1050 [153]"             (null)AVING COMPLETE."
1060 [153]"   RIGHT$F NECESSARY, PUT THE DISK IN"
1070 [153]"     THE DRIVE AND PRESS (null)(null)ATNLENVALCONT."
1080 [161]A$:[139]A$[179][177]" "[167]1080
1090 [159]15,DV,15,"R0:PACKAGE.O=PACKAGE.O":[132]15,ER:[160]15
1100 [139]ER[179][177]63 [167] 1040
1110 [158]HGR:[137]420
1120 :
1130 :
1140 :
1150 [143] ---   PRINT DOS ERROR MSG ---
1160 :
1170 [151]53280,.:[151]53281,.:[153]"LOAD        FOR STR$ RIGHT$ (null) (null)   VAL (null) (null) (null) (null) !
1180 POKE214,10:PRINT
1190 A$="[152][197]RROR #"+STR$(ER)+"[152],"+ER$
1200 X%=22-LEN(A$)/2:PRINTTAB(X%);A$
1210 POKE214,21:PRINT
1220 PRINT"[152]        [208]RESS [211][208][193][195][197][152] TO CONTINUE."
1230 GETA$:IFA$<>" "THEN1230
1240 RETURN
1250 O=PEEK(53270)AND16
1255 IFOTHENSYS51459
1260 POKE53281,0:POKE53280,0
1270 PRINT"[147][154]  [193]RE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
1280 POKE198,0:WAIT198,1:GETAG$
1290 IFAG$="Y"ORAG$="[217]"THEN1330
1295 IFOTHENSYS51459
1300 RETURN
1320 REM QUIT
1330 GOTO40000
1380 REM DATA <TITLE>,<BORDER COLOR>
1390 DATA 9
1400 DATA NORBERT.SHP,0
1402 DATA ASPEN.SHP,0
1410 DATA VERA.SHP,0
1420 DATA ALPS.SHP,0
1430 DATA THE TAEPING.SHP,14
1440 DATA BABY.SHP,1
1450 DATA RAG DOLL.SHP,0
1460 DATA SEASCAPE.SHP,14
1470 DATA HOUSE.SHP,0
1500 :
1770 PRINT"";
1800 :
1810 POKE53281,0:POKE53280,0
1820 PRINT"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1830 FORQX=1TO13
1840 PRINT"[221]"TAB(38)"[221]":NEXT
1850 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1860 FORLX=217TO217+26:POKELX,(PEEK(LX)OR128):NEXT
1870 PRINT"[159]"
1872 PRINTTAB(FND(1))AN$(X,1)
1880 FORI=2TO12
1882 PRINT"[155]"TAB(FND(I))AN$(X,I)
1886 NEXT
1900 RETURN
1910 KK=0
1915 POKE214,15:PRINT:PRINT"[154]     [215]HILE THE SLIDE IS SHOWING..."
1916 PRINT"      [198]1 [158]- CHANGES BORDER COLOR"
1917 PRINT"      [198]3 [158]- CHANGES BACKGROUND COLOR"
1918 PRINT"      [198]5 [158]- TOGGLES LIGHT SHOW"
1919 PRINT"       [211] [158]- TAKES YOU TO [211][193][214][197] ROUTINE"
1920 PRINT"       [209] [158]- QUITS"
1925 POKE214,23:PRINT
1930 PRINT"[154][208]RESS [209] TO QUIT - [193]NY OTHER TO CONTINUE[145]"
1940 KK=KK+1:GETA$:IFA$<>""ORKK>1000THENRETURN
1950 GOTO1940
1980 :
1990 :
2000 PRINT"[147]";:IFFHTHENPOKE254,0:SYSBA:GOTO2040
2020 POKE251,64:POKE252,224:POKE253,204
2030 SYSUN
2040 POKE53280,C(X):POKE252,224:POKE253,204:SYSHGR:RETURN
2050 RETURN
10000 OPEN15,8,15,"S0:B.GALLERY 1":CLOSE15:SAVE"B.GALLERY 1",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO8:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[212][200][197] [204][207][193][196][211][212][193][210] [199][193][204][204][197][210][217] #1":Z$(1)="BY [215]ALT [200]ARNED"
60040 Z$(3)="([195]) 1994 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)OFTDISK (null)UBLISHING.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60090 [151]214,12:[153]
60100 [129]I[178]0[164]5:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]